1 files changed, 0 insertions, 17 deletions
diff --git a/trunk/forceascii.hs b/trunk/forceascii.hs
deleted file mode 100644
index b5f1645..0000000
--- a/trunk/forceascii.hs
+++ /dev/null

@@ -1,17 +0,0 @@
-- Preprocessor for hapax.lua writer
-- because for some damn reason, UTF-8 confuses things
-import Text.Pandoc.JSON
-import Data.Char (isAscii)
-main :: IO ()
-main = toJSONFilter unFancy
-unFancy :: Inline -> Inline
-unFancy (Str s) = Str $ map makeAscii s
-unFancy x       = x
-makeAscii :: Char -> Char
-makeAscii c
-    | isAscii c = c
-    | otherwise = ' '

diff --git a/trunk/forceascii.hs b/trunk/forceascii.hs deleted file mode 100644 index b5f1645..0000000 --- a/trunk/forceascii.hs +++ /dev/null
@@ -1,17 +0,0 @@
1	-- Preprocessor for hapax.lua writer
2	-- because for some damn reason, UTF-8 confuses things
3
4	import Text.Pandoc.JSON
5	import Data.Char (isAscii)
6
7	main :: IO ()
8	main = toJSONFilter unFancy
9
10	unFancy :: Inline -> Inline
11	unFancy (Str s) = Str $ map makeAscii s
12	unFancy x = x
13
14	makeAscii :: Char -> Char
15	makeAscii c
16	\| isAscii c = c
17	\| otherwise = ' '