[fix] "=" を含むトークン定義が正しく認識されないバグを修正

Author: Yuta1004

lib/copager2/src/Copager2/Core/Language/Token/QuasiQuote.hs

@@ -58,9 +58,8 @@ parseBody input =
 
 parseBodyLine :: String -> Maybe TokenDef
 parseBodyLine line =
- let line' = line & filter (/= '=')
- in case words line' of
- tIdent:arg:_ -> Just $ TokenDef tIdent arg
+ case words line of
+ tIdent:_:arg:_ -> Just $ TokenDef tIdent arg
  _ -> Nothing
 
 sepBody :: [TokenDef] -> ([TokenDef], String)