GiveYouAHead 0.2.2.0 → 0.2.2.1

raw patch · 4 files changed

+6/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• GiveYouAHead.cabal +1/−1
• lib/GiveYouAHead/Build.hs +1/−1
• lib/GiveYouAHead/Build/ExtraCompileOption.hs +3/−2
• lib/GiveYouAHead/Version.hs +1/−1

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                GiveYouAHead
-version:             0.2.2.0
+version:             0.2.2.1
 synopsis:            to auto-do somethings
 description:         to auto-do somethings
 homepage:            https://github.com/Qinka/GiveYouAHead/

@@ -47,7 +47,7 @@     let files = case list of
                  [] -> getFilesList (findKey lCMap "*FE") gC
                  _ -> getFilesList (findKey lCMap "*FE") $　map list' list
-    extras <- returnExtras (findKey lCMap "*NoteMark") (findKey lCMap "*COB") (findKey lCMap "*COE") files
+    extras <- returnExtras (findKey allMap' "*NoteMark") (findKey lCMap "*EOB") (findKey lCMap "*EOE") files
     let allMap = allMap' ++ zip3 (repeat On) (map ("*extra"++) files) extras
     print files
     writeF

@@ -33,13 +33,14 @@ 
 getOptionsFromFile nM oB oE fn = do
     fSrc <- readF fn
-    return $ getOptions nM oB oE $ lines fSrc
+    let rt = getOptions nM oB oE $ lines fSrc
+    return rt
 
 getOptBegin oB inStr = rt
     where
             rt' = dropWhile (/=oB) inStr
             (_:rt) = case length rt' of
-                0 -> ["",""]
+                0 -> ["", ""]
                 1 -> ["",""]
                 _ -> rt'
 

@@ -6,6 +6,6 @@ import Data.Version
 
 gyah'ver :: Version
-gyah'ver = Version { versionBranch = [0,2,2,0] , versionTags=[]}
+gyah'ver = Version { versionBranch = [0,2,2,1] , versionTags=[]}
 gyahver :: String
 gyahver = showVersion gyah'ver