Searched refs:removeClosingHash (Results 1 – 3 of 3) sorted by relevance
650 let removeClosingHash (_ :: Int) [] = [] function651 removeClosingHash 0 (Tok Spaces _ _ : xs) =652 removeClosingHash 0 xs653 removeClosingHash _ (Tok (Symbol '#') _ _ :656 removeClosingHash _ (Tok (Symbol '#') _ _ : xs) =657 removeClosingHash 1 xs658 removeClosingHash 1 (Tok Spaces _ _ : xs) = xs function659 removeClosingHash 1 (x:_)661 removeClosingHash _ xs = xs function662 let raw' = reverse . removeClosingHash 0 . reverse $ raw
652 let removeClosingHash (_ :: Int) [] = [] function653 removeClosingHash 0 (Tok Spaces _ _ : xs) =654 removeClosingHash 0 xs655 removeClosingHash _ (Tok (Symbol '#') _ _ :658 removeClosingHash _ (Tok (Symbol '#') _ _ : xs) =659 removeClosingHash 1 xs660 removeClosingHash 1 (Tok Spaces _ _ : xs) = xs function661 removeClosingHash 1 (x:_)663 removeClosingHash _ xs = xs function664 let raw' = reverse . removeClosingHash 0 . reverse $ raw