@@ -139,9 +139,9 @@ blockToOrg (CodeBlock (_,classes,_) str) = do
139 "ledger", "lisp", "matlab", "mscgen", "ocaml", "octave",
139 "ledger", "lisp", "matlab", "mscgen", "ocaml", "octave",
140 "oz", "perl", "plantuml", "python", "R", "ruby", "sass",
140 "oz", "perl", "plantuml", "python", "R", "ruby", "sass",
141 "scheme", "screen", "sh", "sql", "sqlite"]
141 "scheme", "screen", "sh", "sql", "sqlite"]
142− let (beg, end) = if null at
142+ let (beg, end) = case at of
143− then ("#+BEGIN_EXAMPLE", "#+END_EXAMPLE")
143+ [] -> ("#+BEGIN_EXAMPLE", "#+END_EXAMPLE")
144− else ("#+BEGIN_SRC" ++ head at, "#+END_SRC")
144+ (x:_) -> ("#+BEGIN_SRC " ++ x, "#+END_SRC")
145 return $ text beg $$ nest tabstop (text str) $$ text end $$ blankline
145 return $ text beg $$ nest tabstop (text str) $$ text end $$ blankline
146blockToOrg (BlockQuote blocks) = do
146blockToOrg (BlockQuote blocks) = do
147 contents <- blockListToOrg blocks
147 contents <- blockListToOrg blocks