@@ -139,11 +139,7 @@ parseMuse = do
139139-- * Utility functions
140140
141141commonPrefix :: String -> String -> String
142−commonPrefix _ [] = []
143−commonPrefix [] _ = []
144−commonPrefix (x:xs) (y:ys)
145− | x == y = x : commonPrefix xs ys
146− | otherwise = []
142+commonPrefix xs ys = map fst $ takeWhile (uncurry (==)) $ zip xs ys
147143
148144-- | Trim up to one newline from the beginning of the string.
149145lchop :: String -> String