jukebox 0.4 → 0.4.1

raw patch · 2 files changed

+2/−6 lines, 2 files

Files

• jukebox.cabal +1/−1
• src/Jukebox/Name.hs +1/−5

@@ -1,5 +1,5 @@ Name: jukebox-Version: 0.4+Version: 0.4.1 Cabal-version: >= 1.8 Build-type: Simple Author: Nick Smallbone

@@ -94,11 +94,7 @@ compareName (Variant x xs _) = Right (Right (x, xs))  instance Show Name where-  show (Fixed x ml) =-    show x ++-    case ml of-      Nothing -> ""-      Just l -> "[" ++ l ++ "]"+  show (Fixed x _) = show x   show (Unique n xs ml f) =     ys ++ "@" ++ show n ++     case ml of