diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-09 14:53:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-09 15:09:11 -0400 |
| commit | a26b7127d4cc8b2a5e15ef662ab2793dbf9e7919 (patch) | |
| tree | 95fb3ff9231bffe68f99b02d872ee308b40d0bc8 /Command/Migrate.hs | |
| parent | be9989b76db21772118f8893ea00d22b6365d301 (diff) | |
fix some mixed space+tab indentation
This fixes all instances of " \t" in the code base. Most common case
seems to be after a "where" line; probably vim copied the two space layout
of that line.
Done as a background task while listening to episode 2 of the Type Theory
podcast.
Diffstat (limited to 'Command/Migrate.hs')
| -rw-r--r-- | Command/Migrate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index cea9e9426..cab807d05 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -65,7 +65,7 @@ upgradableKey backend key = isNothing (Types.Key.keySize key) || backendupgradab perform :: FilePath -> Key -> Backend -> Backend -> CommandPerform perform file oldkey oldbackend newbackend = go =<< genkey where - go Nothing = stop + go Nothing = stop go (Just (newkey, knowngoodcontent)) | knowngoodcontent = finish newkey | otherwise = stopUnless checkcontent $ finish newkey |