diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-05 19:51:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-05 19:51:03 -0400 |
| commit | d3cee987caf20b309334b37bd1b89e8b9115cf0a (patch) | |
| tree | 8c1a244545efed3b2fd9e48ea28faac12aa326fe /Backend/URL.hs | |
| parent | 77188ff04d8d4d42b25daac9eeffbf10d8b663ac (diff) | |
separate source of content from the filename associated with the key when generating a key
This already made migrate's code a lot simpler.
Diffstat (limited to 'Backend/URL.hs')
| -rw-r--r-- | Backend/URL.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs index b98974cb4..cc9112a36 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -20,11 +20,11 @@ backends :: [Backend] backends = [backend] backend :: Backend -backend = Backend { - name = "URL", - getKey = const (return Nothing), - fsckKey = Nothing -} +backend = Backend + { name = "URL" + , getKey = const $ return Nothing + , fsckKey = Nothing + } fromUrl :: String -> Maybe Integer -> Key fromUrl url size = stubKey |