diff options
Diffstat (limited to 'src/Tex.hs')
-rw-r--r-- | src/Tex.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -70,7 +70,7 @@ withCurrentDirectory dir action = | |||
70 | action | 70 | action |
71 | 71 | ||
72 | extractAlignment :: String -> String | 72 | extractAlignment :: String -> String |
73 | extractAlignment = fromMaybe "0pt" . extract . (=~ "depth=([^\\s]+)") | 73 | extractAlignment = fromMaybe "0" . extract . (=~ "depth=([^\\s]+)pt") |
74 | where | 74 | where |
75 | extract :: (String, String, String, [String]) -> Maybe String | 75 | extract :: (String, String, String, [String]) -> Maybe String |
76 | extract (_, _, _, xs) = listToMaybe xs | 76 | extract (_, _, _, xs) = listToMaybe xs |