diff --git a/GiveYouAHead.cabal b/GiveYouAHead.cabal
--- a/GiveYouAHead.cabal
+++ b/GiveYouAHead.cabal
@@ -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/
diff --git a/lib/GiveYouAHead/Build.hs b/lib/GiveYouAHead/Build.hs
--- a/lib/GiveYouAHead/Build.hs
+++ b/lib/GiveYouAHead/Build.hs
@@ -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
diff --git a/lib/GiveYouAHead/Build/ExtraCompileOption.hs b/lib/GiveYouAHead/Build/ExtraCompileOption.hs
--- a/lib/GiveYouAHead/Build/ExtraCompileOption.hs
+++ b/lib/GiveYouAHead/Build/ExtraCompileOption.hs
@@ -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'
 
diff --git a/lib/GiveYouAHead/Version.hs b/lib/GiveYouAHead/Version.hs
--- a/lib/GiveYouAHead/Version.hs
+++ b/lib/GiveYouAHead/Version.hs
@@ -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
